home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
chklibl.arc
/
CHKLIBL.CLP
next >
Wrap
Text File
|
1991-12-04
|
1KB
|
27 lines
CHKLIBL: PGM PARM(&LIB)
DCL &LIB *CHAR 10
DCL &LIBL *CHAR 275
DCL &OFFSET *DEC 3 VALUE(1)
DCL &POSITION *DEC 3 VALUE(1)
DCL &POS *CHAR 3
MONMSG MSGID(CPF0000)
RTVJOBA USRLIBL(&LIBL)
CHKLIB: IF (%SST(&LIBL &OFFSET 10) *EQ &LIB) DO
CHGVAR VAR(&POS) VALUE(&POSITION)
IF COND(%SST(&POS 1 1) *EQ '0') THEN(CHGVAR +
VAR(%SST(&POS 1 1)) VALUE(' '))
IF COND(%SST(&POS 2 1) *EQ '0') THEN(CHGVAR +
VAR(%SST(&POS 2 1)) VALUE(' '))
SNDPGMMSG MSG('Library' *BCAT &LIB *BCAT 'found in +
library list, position' *BCAT &POS) +
MSGTYPE(*COMP)
ENDDO
ELSE DO
CHGVAR VAR(&OFFSET) VALUE(&OFFSET + 11)
CHGVAR VAR(&POSITION) VALUE(&POSITION + 1)
IF (&OFFSET *LT 275) GOTO CHKLIB
SNDPGMMSG MSG('Library' *BCAT 'not found in library +
list.') MSGTYPE(*COMP)
ENDDO
ENDPGM: ENDPGM